home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mtdir.d < prev    next >
Text File  |  1997-10-26  |  5KB  |  107 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *  MAGICTOOLS   Modula's  All purpose  GEM  Interface  Cadre  Toolbox  *
  4.  *               ÿ         ÿ            ÿ    ÿ          ÿ               *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus, sowie die   *
  11.  * Verbreitung des bersetzten, nicht gelinkten Codes in schriftlicher, *
  12.  * oder maschinenlesbarer Form, insbesondere in Zeitschriften, Mail-    *
  13.  * boxen oder anderen Medien bedarf der ausdrcklichen schriftlichen    *
  14.  * Einverst„ndnisserkl„rung des Autors.                                 *
  15.  *                                                                      *
  16.  * Die Verbreitung des Moduls als Teil eines gelinkten Programms ist    *
  17.  * fr Lizenznehmer ausdrcklich erlaubt!  Der Autor beh„lt sich das    *
  18.  * Recht vor, diese Erlaubnis jederzeit und ohne Angaben von Grnden zu *
  19.  * widerrufen.                                                          *
  20.  *----------------------------------------------------------------------*)
  21.  
  22. (*----------------------------------------------------------------------*
  23.  * mtDir        Directory- und Dateinamen-Manipulationen                *
  24.  *----------------------------------------------------------------------*)
  25.  
  26. DEFINITION MODULE mtDir;
  27.  
  28. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  29.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  30.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  31.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  32.  
  33.  
  34.  
  35.  
  36.  
  37. FROM MagicDOS IMPORT PtrDTA;
  38.  
  39. CONST   Tos100 = 0100H;
  40.         Tos102 = 0102H;
  41.         Tos104 = 0104H; (* Das aktuelle ST OS *)
  42.         Tos106 = 0106H; (* Beim 1040STE zu finden *)
  43.         Tos205 = 0205H; (* Die MegaSTE haben so eines *)
  44.         Tos206 = 0206H; (* neues fr MegaSTE und alle anderen *)
  45.         Tos300 = 0300H; (* Das OS des TT *)
  46.         Tos301 = 0301H; (* T”T” *)
  47.         Tos305 = 0305H; (* auch verbreitet *)
  48.         Tos306 = 0306H; (* Das neueste OS fr den TT030 *)
  49.  
  50.  
  51. PROCEDURE GetDir (VAR pfad, name: ARRAY OF CHAR; REF  msg: ARRAY OF CHAR): BOOLEAN;
  52. (* Fileselectorbox, bei OS-Versionen >= Tos14 oder der Patzelbox wird msg in 
  53.  * die Filebox gesetzt.
  54.  *)
  55.  
  56. PROCEDURE GetFile (REF  wild, message: ARRAY OF CHAR; VAR file: ARRAY OF CHAR): BOOLEAN;
  57. (* Bedient sich der Prozedur GetDir. In wild kann ein Wildcard bergeben werden,
  58.  * gegebenenfalls mit Pfad. message wird ab Tos 1.4 in den Fileselector gesetzt.
  59.  * file enth„lt bei Returnwert TRUE den Dateinamen MIT Pfad.
  60.  *)
  61.  
  62. PROCEDURE GetPath (VAR pfad: ARRAY OF CHAR);
  63. (* Ermittelt den aktuellen Pfad *)
  64.  
  65. PROCEDURE DelTail (VAR pfad: ARRAY OF CHAR);
  66. (* L”scht Suffix vom Pfad weg: Aus "C:\M2\M.PRG" wird "C:\M2\" *)
  67.  
  68. PROCEDURE SplitPath (REF  path: ARRAY OF CHAR; VAR pfad, name, suff: ARRAY OF CHAR);
  69. (* Zerlegt Pfad in seine Bestandteile *)
  70.  
  71. PROCEDURE CompletePath (VAR pfad: ARRAY OF CHAR; REF  standard: ARRAY OF CHAR);
  72. (* Komplettiert einen Pfad nach den MS-DOS-Regeln *)
  73.  
  74. PROCEDURE ExSelector (): BOOLEAN;
  75. (* TRUE, wenn ein extended Fileselector, zB. von Martin Patzel installiert ist
  76.  * ebenfalls TRUE, wenn TOS >= 1.4 verwendet wird.
  77.  *)
  78.  
  79. PROCEDURE GetVersion (): sCARDINAL;
  80. (* Liefert die Version des Betriebssystems *)
  81.  
  82. PROCEDURE Exist (REF  datei: ARRAY OF CHAR): BOOLEAN;
  83. (* TRUE wenn datei existiert *)
  84.  
  85. PROCEDURE Replace (REF  old, wildcard: ARRAY OF CHAR; VAR new: ARRAY OF CHAR);
  86. (* Bildet aus wildcard und old einen neuen Dateinamen (new). Beispiel:
  87.  *
  88.  *      old             wildcard        new
  89.  *
  90.  *      DATEI.TXT       *.DOC           DATEI.DOC
  91.  *      DATEI.TXT       X*.*            XATEI.TXT
  92.  *      DATEI.TXT       *.*             DATEI.TXT
  93.  *      DATEI.TXT       ?????001.*      DATEI001.TXT
  94.  *      DATEI.TXT       DATEI.BAK       DATEI.BAK
  95.  *
  96.  *)
  97.  
  98. PROCEDURE SearchParas (REF  maske: ARRAY OF CHAR; attribut: sBITSET;
  99.                         dta: PtrDTA; firsttime: BOOLEAN);
  100. (* Stellt die Parameter ein, nach denen ein File gesucht wird *)
  101.  
  102. PROCEDURE Found (): BOOLEAN;
  103. (* TRUE, wenn eine Datei mit den Parametern aus SearchParas gefunden wurde *)
  104.  
  105. END mtDir.
  106.  
  107.